home *** CD-ROM | disk | FTP | other *** search
- %PS = 16384
- %A1 = %PS + 00
- %A2 = %PS + 02
- %A3 = %PS + 04
- %A4 = %PS + 06
- %A5 = %PS + 08
- %A6 = %PS + 10
-
- function CheckInt(num) shared
- reg %AX,(1*256)+num
- call interrupt &H0b
- jint.offset=REG(%DI)
- jint.number=num
- if jint.offset<>-1 then
- CheckInt=1
- jint.segment=REG(%ES)
- def seg = jint.segment
- jint.segment=peeki(22)
- else
- CheckInt=0
- end if
- end function
-
- sub CallAndWait shared
- reg %AX,(7*256)+jint.number
- call interrupt &H0b
- reg %AX,(8*256)+jint.number
- call interrupt &H0b
- end sub